100 REM    KSCOPE
120 CLR:RESTORE
160 POKE53280,0:POKE53281,0
180 PRINTCHR$(147);
200 DIMCH(25,4),CL(16)
220 FORI=1TO24
230 FORJ=1TO4:READCH(I,J):NEXTJ
240 NEXTI
260 FORJ=1TO16:READCL(J):NEXTJ
280 FORJ=1TO4:READX(J):NEXTJ
300 FORJ=1TO4:READY(J):NEXTJ
340 HX=INT(RND(1)*20)
350 VY=INT(RND(1)*12)
360 CI=INT(RND(1)*24)+1
370 CP=INT(RND(1)*16)+1
410 PRINTCHR$(146)CHR$(CL(CP));
450 FORI=1TO4:XX=X(I):YY=Y(I)
460 IFXX=20THENXX=XX+HX
470 IFXX=19THENXX=XX-HX
480 IFYY=12THENYY=YY+VY
490 IFYY=11THENYY=YY-VY
500 POKE781,YY:POKE782,XX
510 POKE783,0:SYS65520
520 ZC=CH(CI,I)
530 IFZC<0THENPRINTCHR$(18);
540 IFZC>0THENPRINTCHR$(146);
550 ZC=ABS(ZC)
560 PRINTCHR$(ZC);
580 NEXT
600 GOTO340
660 DATA 32,32,32,32
670 DATA -32,-32,-32,-32
680 DATA 32,32,32,32
690 DATA -32,-32,-32,-32
700 DATA 32,32,32,32
710 DATA -32,-32,-32,-32
720 DATA 161,-161,-161,161
730 DATA -161,161,161,-161
740 DATA 162,162,-162,-162
750 DATA -162,-162,162,162
760 DATA 169,223,-169,-223
770 DATA -169,-223,169,223
780 DATA223,169,-223,-169
790 DATA -223,-169,223,169
800 DATA 172,187,190,188
810 DATA-172,-187,-190,-188
820 DATA 188,190,187,172
830 DATA -188,-190,-187,-172
840 DATA 187,172,188,190
850 DATA -187,-172,-188,-190
860 DATA 190,188,172,187
870 DATA -190,-188,-172,-187
880 DATA 191,-191,191,-191
890 DATA -191,191,-191,191
910 DATA 144,5,28,159
940 DATA 156,30,31,158
950 DATA 129,149,150,151
960 DATA 152,153,154,155
1000 DATA 20,19,19,20
1010 DATA 11,11,12,12